unit UCDMServerContainer;

interface

uses
  SysUtils, Classes, 
  DSTCPServerTransport,
  DSServer, DSCommonServer; 

type
  TCDMServerContainer = class(TDataModule)
    dssServer1: TDSServer;
    dstServerTransport: TDSTCPServerTransport;
    dscServerClass1: TDSServerClass;
    procedure dscServerClass1GetClass(DSServerClass: TDSServerClass;
      var PersistentClass: TPersistentClass);
  private
    { Private declarations }
  public
  end;

var
  CDMServerContainer: TCDMServerContainer;

implementation

uses Windows, USDMServerMethods;

{$R *.dfm}

procedure TCDMServerContainer.dscServerClass1GetClass(
  DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass);
begin
  PersistentClass := USDMServerMethods.TSDMServerMethods;
end;

end.




